//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Modules.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "IdExplicitTLSClientServerBase"
#pragma resource "*.dfm"

Tdm *dm;
int timeout= 0;
//---------------------------------------------------------------------------
__fastcall Tdm::Tdm(TComponent* Owner)
    : TDataModule(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tdm::TimeoutTmrTimer(TObject *Sender)
{
    if(timeout++ == 15)
    {
        if(FTP->Connected())
            FTP->Noop();

        timeout= 0;
    }
}
//---------------------------------------------------------------------------

